Shareware Overload Trio 2/Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO/dir44/dungn32.zip/TIMEFNC.FOR

Text File | 1994-10-07 | 45KB | 1,192 lines

C Clock events, demons, actors for DUNGEON.
C
C COPYRIGHT 1980, 1990, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA.
C ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED
C WRITTEN BY R. M. SUPNIK
C
C 27-Sep-94     RMS     Fixed bugs in thief demon, fight demon, master actor,
C                       robot actor, dead player, balloon, bell.
C 30-Jan-94     RMS     Fixed bugs from MS DOS port.
C 18-Jan-94     RMS     Fixed bug in dead player recovery.
C 01-Jul-92     RMS     Removed extraneous function from CEVAPP.
C 30-Jun-92     RMS     Changed file names to lower case.
C
C CLOCKD- Intermove clock events demon
C
C Declarations
C
      LOGICAL FUNCTION CLOCKD(X)
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
C
      CLOCKD=.FALSE.                            ! assume no action.
      DO 100 I=1,CLNT
        IF(.NOT.CFLAG(I) .OR.(CTICK(I).EQ.0)) GO TO 100
        IF(CTICK(I).LT.0) GO TO 50              ! permanent entry?
        CTICK(I)=CTICK(I)-1
        IF(CTICK(I).NE.0) GO TO 100             ! timer expired?
50      CLOCKD=.TRUE.
        CALL CEVAPP(CACTIO(I))                  ! do action.
100   CONTINUE
      RETURN
C
      END

C CEVAPP- Clock event applicables
C
C Declarations
C
      SUBROUTINE CEVAPP(RI)
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
      INTEGER CNDTCK(10),LMPTCK(12)
      LOGICAL FINDXT,LIT,RMDESC,QOPEN,MOVETO
      LOGICAL F,QLEDGE,QHERE,PROB,WASLIT
C
C Functions and data
C
      QOPEN(R)=(OFLAG2(R).AND.OPENBT).NE.0
      QLEDGE(R)=(R.EQ.LEDG2).OR.(R.EQ.LEDG3).OR.(R.EQ.LEDG4)
      DATA CNDTCK/50,20,10,5,0,156,156,156,157,0/
      DATA LMPTCK/50,30,20,10,4,0,154,154,154,154,155,0/
C
      IF(RI.EQ.0) RETURN                        ! ignore disabled.
      WASLIT=LIT(HERE)
      GO TO (1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,
     111000,12000,13000,14000,15000,16000,17000,18000,19000,
     220000,21000,22000,23000,24000,25000,26000,27000,28000,
     329000,30000),RI
      CALL BUG(3,RI)
C
C Return here to test for change in light.
C
50    IF(WASLIT.AND..NOT.LIT(HERE)) CALL RSPEAK(406)
      RETURN

C CEVAPP, PAGE 2
C
C CEV1--        Cure clock.  Let player slowly recover.
C
1000  ASTREN(PLAYER)=MIN0(0,ASTREN(PLAYER)+1)   ! recover.
      IF(ASTREN(PLAYER).GE.0) RETURN            ! fully recovered?
      CFLAG(CEVCUR)=.TRUE.
      CTICK(CEVCUR)=30                          ! no, wait some more.
      RETURN
C
C CEV2--        Maint-room with leak.  Raise the water level.
C
2000  IF(HERE.EQ.MAINT) CALL RSPEAK(71+(RVMNT/2)) ! describe.
      RVMNT=RVMNT+1                             ! raise water level.
      IF(RVMNT.LE.16) RETURN                    ! if not full, exit.
      CTICK(CEVMNT)=0                           ! full, disable clock.
      RFLAG(MAINT)=RFLAG(MAINT).OR.RMUNG        ! mung room.
      RDESC1(MAINT)=80                          ! say it is full of water.
      IF(HERE.EQ.MAINT) CALL JIGSUP(81)         ! drown him if present.
      RETURN
C
C CEV3--        Lantern.  Describe growing dimness.
C
3000  CALL LITINT(LAMP,ORLAMP,CEVLNT,LMPTCK,12) ! do light interrupt.
      GO TO 50                                  ! go see if now dark.
C
C CEV4--        Match.  Out it goes.
C
4000  CALL RSPEAK(153)                          ! match is out.
      OFLAG1(MATCH)=OFLAG1(MATCH).AND. .NOT.(ONBT+FLAMBT+LITEBT)
      GO TO 50                                  ! go see if now dark.
C
C CEV5--        Candle.  Describe growing dimness.
C
5000  CALL LITINT(CANDL,ORCAND,CEVCND,CNDTCK,10) ! do candle interrupt.
      GO TO 50                                  ! go see if now dark.

C CEVAPP, PAGE 3
C
C CEV6--        Balloon.
C
6000  CFLAG(CEVBAL)=.TRUE.
      CTICK(CEVBAL)=3                           ! reschedule interrupt.
      F=AVEHIC(WINNER).EQ.BALLO                 ! see if in balloon.
      IF(BLOC.EQ.VLBOT) GO TO 6800              ! at bottom?
      IF(QLEDGE(BLOC)) GO TO 6700               ! on ledge?
      IF(QOPEN(RECEP).AND.(BINFF.NE.0))
     1GO TO 6500                                ! inflated and recep open?
C
C Balloon is in midair and is deflated (or has receptacle closed).
C Fall to next room.
C
      IF(BLOC.NE.VAIR1) GO TO 6300              ! in vair1?
      BLOC=VLBOT                                ! yes, now at vlbot.
      CALL NEWSTA(BALLO,0,BLOC,0,0)
      IF(F) GO TO 6200                          ! in balloon?
      IF(QLEDGE(HERE).OR.(HERE.EQ.VLBOT))
     1CALL RSPEAK(530)                          ! if can see, describe.
      RETURN
C
6200  F=MOVETO(BLOC,WINNER)                     ! move him.
      IF(BINFF.EQ.0) GO TO 6250                 ! in balloon.  inflated?
      CALL RSPEAK(531)                          ! yes, landed.
      F=RMDESC(0)                               ! describe.
      RETURN
C
6250  CALL NEWSTA(BALLO,532,0,0,0)              ! no, balloon & contents die.
      CALL NEWSTA(DBALL,0,BLOC,0,0)             ! insert dead balloon.
      IF(LASTIT.EQ.BALLO) LASTIT=DBALL          ! fix last it reference.
      AVEHIC(WINNER)=0                          ! not in vehicle.
      CFLAG(CEVBAL)=.FALSE.                     ! disable interrupts.
      CFLAG(CEVBRN)=.FALSE.
      RETURN
C
6300  BLOC=BLOC-1                               ! not in vair1, descend.
      CALL NEWSTA(BALLO,0,BLOC,0,0)
      IF(F) GO TO 6400                          ! is he in balloon?
      IF(QLEDGE(HERE).OR.(HERE.EQ.VLBOT))
     1CALL RSPEAK(533)                          ! if can see, describe.
      RETURN
C
6400  F=MOVETO(BLOC,WINNER)                     ! in balloon, move him.
      CALL RSPEAK(534)                          ! describe.
      F=RMDESC(0)
      RETURN
C
C Balloon is in midair and is inflated, up-up-and-away!
c
6500  IF(BLOC.NE.VAIR4) GO TO 6600              ! at vair4?
      CFLAG(CEVBRN)=.FALSE.                     ! disable interrupts.
      CFLAG(CEVBAL)=.FALSE.
      BINFF=0
      BLOC=VLBOT                                ! fall to bottom.
      CALL NEWSTA(BALLO,0,0,0,0)                ! balloon & contents die.
      CALL NEWSTA(DBALL,0,BLOC,0,0)             ! substitute dead balloon.
      IF(LASTIT.EQ.BALLO) LASTIT=DBALL          ! fix last it reference.
      IF(F) GO TO 6550                          ! was he in it?
      IF(QLEDGE(HERE)) CALL RSPEAK(535)         ! if can see, describe.
      IF(HERE.EQ.VLBOT) CALL RSPEAK(925)        ! if at bottom, describe
      RETURN
C
6550  CALL JIGSUP(536)                          ! in balloon at crash, die.
      RETURN
C
6600  BLOC=BLOC+1                               ! not at vair4, go up.
      CALL NEWSTA(BALLO,0,BLOC,0,0)
      IF(F) GO TO 6650                          ! in balloon?
      IF(QLEDGE(HERE).OR.(HERE.EQ.VLBOT))
     1CALL RSPEAK(537)                          ! if can see, describe.
      RETURN
C
6650  F=MOVETO(BLOC,WINNER)                     ! move player.
      CALL RSPEAK(538)                          ! describe.
      F=RMDESC(0)
      RETURN
C
C On ledge, goes to midair room whether inflated or not.
C
6700  BLOC=BLOC+(VAIR2-LEDG2)                   ! move to midair.
      CALL NEWSTA(BALLO,0,BLOC,0,0)
      IF(F) GO TO 6750                          ! in balloon?
      IF(QLEDGE(HERE).OR.(HERE.EQ.VLBOT))
     1CALL RSPEAK(539)                          ! if can see, describe.
      CFLAG(CEVVLG)=.TRUE.                      ! stranded.
      CTICK(CEVVLG)=10                          ! materialize gnome.
      RETURN
C
6750  F=MOVETO(BLOC,WINNER)                     ! move to new room.
      CALL RSPEAK(540)                          ! describe.
      F=RMDESC(0)
      RETURN
C
C At bottom, go up if inflated, do nothing if deflated.
C
6800  IF((BINFF.EQ.0).OR..NOT.QOPEN(RECEP)) RETURN
      BLOC=VAIR1                                ! inflated and open,
      CALL NEWSTA(BALLO,0,BLOC,0,0)             ! go up to vair1.
      IF(F) GO TO 6850                          ! in balloon?
      IF(QLEDGE(HERE).OR.(HERE.EQ.VLBOT))
     1CALL RSPEAK(541)                          ! if can see, describe.
      RETURN
C
6850  F=MOVETO(BLOC,WINNER)                     ! move player.
      CALL RSPEAK(542)
      F=RMDESC(0)
      RETURN

C CEVAPP, PAGE 4
C
C CEV7--        Balloon burnup.
C
7000  DO 7100 I=1,OLNT                          ! find burning object
        IF((RECEP.EQ.OCAN(I)).AND.((OFLAG1(I).AND.FLAMBT).NE.0))
     1GO TO 7200                                ! in receptacle.
7100  CONTINUE
      CALL BUG(4,0)
C
7200  CALL NEWSTA(I,0,0,0,0)                    ! vanish object.
      BINFF=0                                   ! uninflated.
      IF(HERE.EQ.BLOC) CALL RSPSUB(292,ODESC2(I)) ! describe.
      RETURN
C
C CEV8--        Fuse function.
C
8000  IF(OCAN(FUSE).NE.BRICK) GO TO 8500        ! ignited brick?
      BR=OROOM(BRICK)                           ! get brick room.
      BC=OCAN(BRICK)                            ! get container.
      IF((BR.EQ.0).AND.(BC.NE.0)) BR=OROOM(BC)
      IF(BR.EQ.0) BR=HERE                       ! it's here...
      CALL NEWSTA(FUSE,0,0,0,0)                 ! kill fuse.
      CALL NEWSTA(BRICK,0,0,0,0)                ! kill brick.
      IF(BR.NE.HERE) GO TO 8100                 ! brick elsewhere?
C
      RFLAG(HERE)=RFLAG(HERE).OR.RMUNG          ! blew self.
      RDESC1(HERE)=114                          ! mung room.
      CALL JIGSUP(150)                          ! dead.
      RETURN
C
8100  CALL RSPEAK(151)                          ! boom.
      MUNGRM=BR                                 ! save room that blew.
      CFLAG(CEVSAF)=.TRUE.
      CTICK(CEVSAF)=5                           ! set safe interrupt.
      IF(BR.NE.MSAFE) GO TO 8200                ! blew safe room?
      IF(BC.NE.SSLOT) RETURN                    ! was brick in safe?
      CALL NEWSTA(SSLOT,0,0,0,0)                ! kill slot.
      OFLAG2(SAFE)=OFLAG2(SAFE).OR.OPENBT       ! open safe.
      SAFEF=.TRUE.                              ! indicate safe blown.
      RETURN
C
8200  DO 8250 I=1,OLNT                          ! blew wrong room.
        IF(QHERE(I,BR) .AND. ((OFLAG1(I).AND.TAKEBT).NE.0))
     1CALL NEWSTA(I,0,0,0,0)                    ! vanish contents.
8250  CONTINUE
      IF(BR.NE.LROOM) RETURN                    ! blew living room?
      DO 8300 I=1,OLNT
        IF(OCAN(I).EQ.TCASE) CALL NEWSTA(I,0,0,0,0) ! kill trophy case.
8300  CONTINUE
      RETURN
C
8500  IF(QHERE(FUSE,HERE).OR.(OADV(FUSE).EQ.WINNER))
     1CALL RSPEAK(152)
      CALL NEWSTA(FUSE,0,0,0,0)                 ! kill fuse.
      RETURN

C CEVAPP, PAGE 5
C
C CEV9--        Ledge munge.
C
9000  RFLAG(LEDG4)=RFLAG(LEDG4).OR.RMUNG        ! ledge collapses.
      RDESC1(LEDG4)=109
      IF(HERE.EQ.LEDG4) GO TO 9100              ! was he there?
      CALL RSPEAK(110)                          ! no, narrow escape.
      RETURN
C
9100  IF(AVEHIC(WINNER).NE.0) GO TO 9200        ! in vehicle?
      CALL JIGSUP(111)                          ! no, dead.
      RETURN
C
9200  IF(BTIEF.NE.0) GO TO 9300                 ! tied to ledge?
      CALL RSPEAK(112)                          ! no, no place to land.
      RETURN
C
9300  BLOC=VLBOT                                ! yes, crash balloon.
      CALL NEWSTA(BALLO,0,0,0,0)                ! balloon & contents die.
      CALL NEWSTA(DBALL,0,BLOC,0,0)             ! insert dead balloon.
      IF(LASTIT.EQ.BALLO) LASTIT=DBALL          ! fix last it reference.
      ODESC1(BTIEF)=1073                        ! restore description.
      BTIEF=0
      BINFF=0
      CFLAG(CEVBAL)=.FALSE.
      CFLAG(CEVBRN)=.FALSE.
      CALL JIGSUP(113)                          ! dead.
      RETURN
C
C CEV10--       Safe munge.
C
10000 RFLAG(MUNGRM)=RFLAG(MUNGRM).OR.RMUNG      ! mung target.
      RDESC1(MUNGRM)=114
      IF(HERE.EQ.MUNGRM) GO TO 10100            ! is he present?
      CALL RSPEAK(115)                          ! let him know.
      IF(MUNGRM.NE.MSAFE) RETURN
      CFLAG(CEVLED)=.TRUE.
      CTICK(CEVLED)=8                           ! start ledge clock.
      RETURN
C
10100 I=116                                     ! he's dead,
      IF((RFLAG(HERE).AND.RHOUSE).NE.0) I=117   ! one way or another.
      CALL JIGSUP(I)                            ! let him know.
      RETURN

C CEVAPP, PAGE 6
C
C CEV11--       Volcano gnome entrance.
C
11000 IF(QLEDGE(HERE)) GO TO 11100              ! is he on ledge?
      CFLAG(CEVVLG)=.TRUE.
      CTICK(CEVVLG)=1                           ! no, wait a while.
      RETURN
C
11100 CALL NEWSTA(GNOME,118,HERE,0,0)           ! yes, materialize gnome.
      RETURN
C
C CEV12--       Volcano gnome exit.
C
12000 IF(OROOM(GNOME).EQ.HERE) CALL RSPEAK(149) ! player here to hear?
      CALL NEWSTA(GNOME,0,0,0,0)                ! disappear the gnome.
      RETURN
C
C CEV13--       Bucket.
C
13000 IF(OCAN(WATER).EQ.BUCKE)
     1CALL NEWSTA(WATER,0,0,0,0)                ! water leaks out.
      RETURN
C
C CEV14--       Sphere.  If expires, he's trapped.
C
14000 RFLAG(CAGER)=RFLAG(CAGER).OR.RMUNG        ! mung room.
      RDESC1(CAGER)=147
      WINNER=PLAYER                             ! kill player, not robot.
      CALL JIGSUP(148)                          ! mung player.
      RETURN
C
C CEV15--       END GAME HERALD.
C
15000 ENDGMF=.TRUE.                             ! we're in endgame.
      CALL RSPEAK(119)                          ! inform of endgame.
      RETURN

C CEVAPP, PAGE 7
C
C CEV16--       Forest murmurs.
C
16000 CFLAG(CEVFOR)=(HERE.EQ.MTREE).OR.
     1((HERE.GE.FORE1).AND.(HERE.LT.CLEAR))
      IF(CFLAG(CEVFOR).AND.PROB(10,10)) CALL RSPEAK(635)
      RETURN
C
C CEV17--       Scol alarm.
C
17000 IF(HERE.EQ.BKVAU) CALL JIGSUP(636)        ! if in vau, dead.
      IF(ZGNOMF.OR.(HERE.NE.BKTWI)) RETURN      ! if not in twi, nothing.
      ZGNOMF=.TRUE.                             ! gnome only comes once
      CFLAG(CEVZGI)=.TRUE.                      ! turn on gnome timer
      CTICK(CEVZGI)=5
      RETURN
C
C CEV18--       Gnome of Zurich entrance.
C
18000 IF(HERE.NE.BKTWI) RETURN                  ! player here?
      CFLAG(CEVZGO)=.TRUE.                      ! exits, too.
      CTICK(CEVZGO)=12
      CALL NEWSTA(ZGNOM,637,BKTWI,0,0)          ! place in twi.
      RETURN
C
C CEV19--       Gnome of Zurich exits.
C
19000 CALL NEWSTA(ZGNOM,0,0,0,0)                ! vanish.
      IF(HERE.EQ.BKTWI) CALL RSPEAK(638)        ! announce.
      RETURN

C CEVAPP, PAGE 8
C
C CEV20--       Start of endgame.
C
20000 IF(SPELLF) GO TO 20200                    ! spell his way in?
      IF(HERE.NE.CRYPT) RETURN                  ! no, still in tomb?
      IF(.NOT.LIT(HERE)) GO TO 20100            ! lights off?
      CFLAG(CEVSTE)=.TRUE.
      CTICK(CEVSTE)=3                           ! reschedule.
      RETURN
C
20100 CALL RSPEAK(727)                          ! announce.
20200 DO 20300 I=1,OLNT                         ! strip him of objs.
        CALL NEWSTA(I,0,OROOM(I),OCAN(I),0)
20300 CONTINUE
      CALL NEWSTA(LAMP,0,0,0,PLAYER)            ! give him lamp.
      CALL NEWSTA(SWORD,0,0,0,PLAYER)           ! give him sword.
C
      OFLAG1(LAMP)=(OFLAG1(LAMP).OR.LITEBT).AND. .NOT.ONBT
      OFLAG2(LAMP)=OFLAG2(LAMP).OR.TCHBT
      CFLAG(CEVLNT)=.FALSE.                     ! lamp is good as new.
      CTICK(CEVLNT)=350
      ORLAMP=0
      OFLAG2(SWORD)=OFLAG2(SWORD).OR.TCHBT      ! recreate sword.
      SWDACT=.TRUE.
      SWDSTA=0
C
      THFACT=.FALSE.                            ! thief gone.
      ENDGMF=.TRUE.                             ! endgame running.
      CFLAG(CEVEGH)=.FALSE.                     ! herald gone,
      CFLAG(CEVMAT)=.FALSE.                     ! matches gone,
      CFLAG(CEVCND)=.FALSE.                     ! candles gone.
C
      CALL SCRUPD(RVAL(CRYPT))                  ! score crypt,
      RVAL(CRYPT)=0                             ! but only once.
      F=MOVETO(TSTRS,WINNER)                    ! to top of stairs,
      F=RMDESC(3)                               ! and describe.
      RETURN                                    ! bam!
C
C CEV21--       Mirror closes.
C
21000 MRPSHF=.FALSE.                            ! button is out.
      MROPNF=.FALSE.                            ! mirror is closed.
      IF(HERE.EQ.MRANT) CALL RSPEAK(728)        ! describe button.
      IF((HERE.EQ.INMIR).OR.(MRHERE(HERE).EQ.1))
     1CALL RSPEAK(729)                          ! describe mirror.
      RETURN

C CEVAPP, PAGE 9
C
C CEV22--       Door closes.
C
22000 IF(WDOPNF) CALL RSPEAK(730)               ! describe.
      WDOPNF=.FALSE.                            ! closed.
      RETURN
C
C CEV23--       Inquisitor's question.
C
23000 IF(AROOM(PLAYER).NE.FDOOR) RETURN         ! if player left, die.
      CALL RSPEAK(769)
      CALL RSPEAK(770+QUESNO)
      CFLAG(CEVINQ)=.TRUE.
      CTICK(CEVINQ)=2
      RETURN
C
C CEV24--       Master follows.
C
24000 IF(AROOM(AMASTR).EQ.HERE) RETURN          ! no movement, done.
      IF((HERE.NE.CELL).AND.(HERE.NE.PCELL)) GO TO 24100
      IF(FOLLWF) CALL RSPEAK(811)               ! wont go to cells.
      FOLLWF=.FALSE.
      RETURN
C
24100 FOLLWF=.TRUE.                             ! following.
      I=812                                     ! assume catches up.
      DO 24200 J=XMIN,XMAX,XMIN
        IF(FINDXT(J,AROOM(AMASTR)).AND.(XROOM1.EQ.HERE))
     1I=813                                     ! assume follows.
24200 CONTINUE
      CALL RSPEAK(I)
      CALL NEWSTA(MASTER,0,HERE,0,0)            ! move master object.
      AROOM(AMASTR)=HERE                        ! move master actor.
      RETURN
C
C CEV25--       Brochure arrives.
C
25000 CALL NEWSTA(BROCH,948,0,MAILB,0)          ! put brochure in mailbox
      BROC2F=.TRUE.                             ! flag arrival
      RETURN

C CEVAPP, PAGE 10
C
C CEV26--       Cyclops.
C
26000 IF(HERE.NE.MCYCL.OR.MAGICF) GO TO 26500   ! player or cyclops gone?
      IF(CYCLOF) RETURN                         ! if asleep, check later
      IF(IABS(RVCYC).LE.5) GO TO 26200          ! cyclops overly annoyed?
      CFLAG(CEVCYC)=.FALSE.                     ! disable cyclops timer
      CALL JIGSUP(188)                          ! player munched for lunch
      RETURN
C
26200 IF(RVCYC.LT.0) RVCYC=RVCYC-1              ! cyclops gets more annoyed
      IF(RVCYC.GE.0) RVCYC=RVCYC+1
      CALL RSPEAK(193+IABS(RVCYC))              ! report cyclops state
      RETURN
C
26500 CFLAG(CEVCYC)=.FALSE.                     ! disable cyclops timer
      RETURN
C
C CEV27--       Slippery slide.
C
27000 IF((HERE.LT.SLID1).OR.(HERE.GE.SLEDG)) RETURN ! in slide?
      CALL RSPEAK(1034)                         ! slide to cellar
      F=MOVETO(CELLA,WINNER)                    ! into cellar
      F=RMDESC(3)                               ! describe
      RETURN
C
C CEV28--       Exorcism bell.
C
28000 IF(.NOT.EXORCF.AND.(HERE.EQ.LLD1)) CALL RSPEAK(970)
      EXORBF=.FALSE.                            ! spell broken
      RETURN
C
C CEV29--       Exorcism candles.
C
29000 EXORCF=.FALSE.                            ! spell broken
      GO TO 28000
C
C CEV30--       Hot bell cools down.
C
30000 CALL NEWSTA(HBELL,0,0,0,0)                ! banish hot bell
      CALL NEWSTA(BELL,0,LLD1,0,0)              ! get normal bell
      IF(LASTIT.EQ.HBELL) LASTIT=BELL           ! fix last it reference.
      IF(HERE.EQ.LLD1) CALL RSPEAK(971)         ! tell player if here
      RETURN
C
      END

C LITINT-       Light interrupt processor
C
C Declarations
C
      SUBROUTINE LITINT(OBJ,CTR,CEV,TICKS,TICKLN)
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
      INTEGER TICKS(TICKLN)
C
      CTR=CTR+1                                 ! advance state cntr.
      CTICK(CEV)=TICKS(CTR)                     ! reset interrupt.
      IF(CTICK(CEV).NE.0) GO TO 100             ! expired?
      OFLAG1(OBJ)=OFLAG1(OBJ).AND. .NOT.(LITEBT+FLAMBT+ONBT)
      IF((OROOM(OBJ).EQ.HERE).OR.(OADV(OBJ).EQ.WINNER))
     1CALL RSPSUB(293,ODESC2(OBJ))
      RETURN
C
100   CFLAG(CEV)=.TRUE.
      IF((OROOM(OBJ).EQ.HERE).OR.(OADV(OBJ).EQ.WINNER))
     1CALL RSPEAK(TICKS(CTR+(TICKLN/2)))
      RETURN
C
      END

C FIGHTD- Intermove fight demon
C
C Declarations
C
      SUBROUTINE FIGHTD
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
      LOGICAL PROB,OAPPLI,F
C
C Functions and data
C
      DATA ROUT/1/

C FIGHTD, PAGE 2
C
      DO 2400 I=1,VLNT                          ! loop thru villains.
        VOPPS(I)=0                              ! clear opponent slot.
        OBJ=VILLNS(I)                           ! get object no.
        RA=OACTIO(OBJ)                          ! get his action.
        IF(HERE.NE.OROOM(OBJ)) GO TO 2200       ! adventurer still here?
        IF((OBJ.NE.THIEF).OR. .NOT.THFENF) GO TO 2010 ! thief engrossed?
        THFENF=.FALSE.                          ! yes, not anymore.
        GO TO 2400
C
2010    IF(OCAPAC(OBJ).GE.0) GO TO 2050         ! no, vill awake?
        IF((VPROB(I).EQ.0).OR..NOT.PROB(VPROB(I),(100+VPROB(I))/2))
     1GO TO 2025                                ! no, see if wakes up.
        OCAPAC(OBJ)=IABS(OCAPAC(OBJ))
        VPROB(I)=0
        IF(RA.EQ.0) GO TO 2400                  ! anything to do?
        PRSA=INXW                               ! yes, wake him up.
        F=OAPPLI(RA,0)
        GO TO 2400                              ! nothing else happens.
C
2025    VPROB(I)=VPROB(I)+10                    ! increase wakeup prob.
        GO TO 2400                              ! nothing else.
C
2050    IF((OFLAG2(OBJ).AND.FITEBT).EQ.0) GO TO 2100
        VOPPS(I)=OBJ                            ! fighting, set up opp.
        GO TO 2400
C
2100    IF(RA.EQ.0) GO TO 2400                  ! not fighting,
        PRSA=FRSTQW                             ! set up probability
        IF(.NOT.OAPPLI(RA,0)) GO TO 2400        ! of fighting.
        OFLAG2(OBJ)=OFLAG2(OBJ).OR.FITEBT
        VOPPS(I)=OBJ                            ! set up opp.
        PRSCON=0                                ! stop cmd stream.
        GO TO 2400
C
2200    IF(((OFLAG2(OBJ).AND.FITEBT).EQ.0).OR.(RA.EQ.0))
     1GO TO 2300                                ! nothing to do.
        PRSA=FIGHTW                             ! have a fight.
        F=OAPPLI(RA,0)
2300    IF(OBJ.EQ.THIEF) THFENF=.FALSE.         ! turn off engrossed.
        AFLAG(PLAYER)=AFLAG(PLAYER).AND. .NOT.ASTAG
        OFLAG2(OBJ)=OFLAG2(OBJ).AND. .NOT.(STAGBT+FITEBT)
        IF((OCAPAC(OBJ).GE.0).OR.(RA.EQ.0))
     1GO TO 2400
        PRSA=INXW                               ! wake him up.
        F=OAPPLI(RA,0)
        OCAPAC(OBJ)=IABS(OCAPAC(OBJ))
2400  CONTINUE

C FIGHTD, PAGE 3
C
C Now do actual counterblows.
C
      OUT=0                                     ! assume hero ok.
2600  DO 2700 I=1,VLNT                          ! loop thru opps.
        J=VOPPS(I)
        IF(J.EQ.0) GO TO 2700                   ! slot empty?
        PRSCON=0                                ! stop cmd stream.
        RA=OACTIO(J)
        IF(RA.EQ.0) GO TO 2650                  ! villain action?
        PRSA=FIGHTW                             ! see if
        IF(OAPPLI(RA,0)) GO TO 2700             ! special action.
2650    RES=BLOW(PLAYER,J,VMELEE(I),.FALSE.,OUT) ! strike blow.
        IF(RES.LT.0) RETURN                     ! if hero dead, exit.
        IF(RES.EQ.ROUT) OUT=2+RND(3)            ! if hero out, set flg.
2700  CONTINUE
      OUT=OUT-1                                 ! decrement out count.
      IF(OUT.GT.0) GO TO 2600                   ! if still out, go again.
      RETURN
C
      END

C BLOW- Strike blow
C
C Declarations
C
      INTEGER FUNCTION BLOW(H,V,RMK,HFLG,OUT)
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
      LOGICAL HFLG,OAPPLI,PROB,F
      INTEGER DEF1R(3),DEF2R(4),DEF3R(5)
      INTEGER RVECTR(66),RSTATE(45)
C
C Functions and data
C
      DATA RMISS/0/,ROUT/1/,RKILL/2/,RXXX/3/
      DATA RSER/4/,RSTAG/5/,RLOSE/6/,RHES/7/,RSIT/8/
      DATA DEF1R/1,2,3/
      DATA DEF2R/13,23,24,25/
      DATA DEF3R/35,36,46,47,57/
C
      DATA RVECTR/0,0,0,0,5,5,1,1,2,2,2,2,
     10,0,0,0,0,5,5,3,3,1,
     20,0,0,5,5,3,3,3,1,2,2,2,
     30,0,0,0,0,5,5,3,3,4,4,
     40,0,0,5,5,3,3,3,4,4,4,
     50,5,5,3,3,3,3,4,4,4/
      DATA RSTATE/5000,3005,3008,4011,3015,3018,1021,0,0,
     15022,3027,3030,4033,3037,3040,1043,0,0,
     24044,2048,4050,4054,5058,4063,4067,3071,1074,
     34075,1079,4080,4084,4088,4092,4096,4100,1104,
     44105,2109,4111,4115,4119,4123,4127,3131,3134/

C BLOW, PAGE 2
C
      RA=OACTIO(V)                              ! get villain action,
      DV=ODESC2(V)                              ! description.
      BLOW=RMISS                                ! assume no result.
D     PRINT 10,H,V,RMK,HFLG,OUT
D10   FORMAT(' BLOW 10-- ',3I7,L7,I7)
      IF(.NOT.HFLG) GO TO 1000                  ! hero striking blow?
C
C Hero is attacker, villain is defender.
C
      PBLOSE=10                                 ! bad lk prob.
      OFLAG2(V)=OFLAG2(V).OR.FITEBT             ! yes, villain gets mad.
      IF((AFLAG(H).AND.ASTAG).EQ.0) GO TO 100   ! hero stag?
      CALL RSPEAK(591)                          ! yes, cant fight.
      AFLAG(H)=AFLAG(H).AND. .NOT.ASTAG
      RETURN
C
100   ATT=MAX0(1,FIGHTS(H,.TRUE.))              ! get his strength.
      OA=ATT
      DEF=VILSTR(V)                             ! get vill strength.
      OD=DEF
      DWEAP=0                                   ! assume no weapon.
      DO 200 I=1,OLNT                           ! search villain.
        IF((OCAN(I).EQ.V).AND.((OFLAG2(I).AND.WEAPBT).NE.0))
     1DWEAP=I
200   CONTINUE
      IF(V.EQ.AOBJ(PLAYER)) GO TO 300           ! killing self?
      IF(DEF.NE.0) GO TO 2000                   ! defender alive?
      CALL RSPSUB(592,DV)                       ! villain dead.
      RETURN
C
300   CALL JIGSUP(593)                          ! killing self.
      RETURN
C
C Villain is attacker, hero is defender.
C
1000  PRSCON=0                                  ! stop cmd stream.
      PBLOSE=50                                 ! bad lk prob.
      AFLAG(H)=AFLAG(H).AND..NOT.ASTAG          ! vill striking.
      IF((OFLAG2(V).AND.STAGBT).EQ.0) GO TO 1200 ! vill staggered?
      OFLAG2(V)=OFLAG2(V).AND. .NOT.STAGBT      ! make him ok.
      CALL RSPSUB(594,DV)                       ! describe.
      RETURN
C
1200  ATT=VILSTR(V)                             ! set up att, def.
      OA=ATT
      DEF=FIGHTS(H,.TRUE.)
      IF(DEF.LE.0) RETURN                       ! dont allow dead def.
      OD=FIGHTS(H,.FALSE.)
      DWEAP=IABS(FWIM(0,WEAPBT,0,0,H,.TRUE.))   ! find a weapon.

C BLOW, PAGE 3
C
C Parties are now equipped.  DEF cannot be zero.
C ATT must be > 0.
C
2000  CONTINUE
D     PRINT 2050,ATT,OA,DEF,OD,DWEAP
D2050 FORMAT(' BLOW 2050-- ',5I7)
      IF(DEF.GT.0) GO TO 2100                   ! def alive?
      RES=RKILL
      IF(HFLG) CALL RSPSUB(595,DV)              ! deader.
      GO TO 3000
C
2100  IF(DEF-2) 2200,2300,2400                  ! def <2,=2,>2
2200  ATT=MIN0(ATT,3)                           ! scale att.
      TBL=DEF1R(ATT)                            ! choose table.
      GO TO 2500
C
2300  ATT=MIN0(ATT,4)                           ! scale att.
      TBL=DEF2R(ATT)                            ! choose table.
      GO TO 2500
C
2400  ATT=ATT-DEF                               ! scale att.
      ATT=MIN0(2,MAX0(-2,ATT))+3
      TBL=DEF3R(ATT)
C
2500  RES=RVECTR(TBL+RND(10))                   ! get result.
      IF(OUT.EQ.0) GO TO 2600                   ! was he out?
      IF(RES.EQ.RSTAG) GO TO 2550               ! yes, stag--> hes.
      RES=RSIT                                  ! otherwise, sitting.
      GO TO 2600
2550  RES=RHES
2600  IF((RES.EQ.RSTAG).AND.(DWEAP.NE.0).AND.PROB(25,PBLOSE))
     1RES=RLOSE                                 ! lose weapon.
C
      MI=RSTATE(((RMK-1)*9)+RES+1)              ! choose table entry.
      IF(MI.EQ.0) GO TO 3000
      I=(MOD(MI,1000)+RND(MI/1000))+MBASE+1
      J=DV
      IF(.NOT.HFLG .AND.(DWEAP.NE.0)) J=ODESC2(DWEAP)
D     PRINT 2650,RES,MI,I,J,MBASE
D2650 FORMAT(' BLOW 2650-- ',5I7)
      CALL RSPSUB(I,J)                          ! present result.

C BLOW, PAGE 4
C
C Now apply result.
C
3000  GO TO (4000,3100,3200,3300,3400,3500,3600,4000,3200),RES+1
C              miss, out,kill,lght,svre,stag,lose, hes, sit
C
3100  IF(HFLG) DEF=-DEF                         ! unconscious.
      GO TO 4000
C
3200  DEF=0                                     ! killed or sitting duck.
      GO TO 4000
C
3300  DEF=MAX0(0,DEF-1)                         ! light wound.
      GO TO 4000
C
3400  DEF=MAX0(0,DEF-2)                         ! serious wound.
      GO TO 4000
C
3500  IF(HFLG) GO TO 3550                       ! staggered.
      AFLAG(H)=AFLAG(H).OR.ASTAG
      GO TO 4000
C
3550  OFLAG2(V)=OFLAG2(V).OR.STAGBT
      GO TO 4000
C
3600  CALL NEWSTA(DWEAP,0,HERE,0,0)             ! lose weapon.
      DWEAP=0
      IF(HFLG) GO TO 4000                       ! if hero, done.
      DWEAP=IABS(FWIM(0,WEAPBT,0,0,H,.TRUE.))   ! get new.
      IF(DWEAP.NE.0) CALL RSPSUB(605,ODESC2(DWEAP))

C BLOW, PAGE 5
C
4000  BLOW=RES                                  ! return result.
      IF(.NOT.HFLG) GO TO 4500                  ! hero?
      OCAPAC(V)=DEF                             ! store new capacity.
      IF(DEF.NE.0) GO TO 4100                   ! dead?
      OFLAG2(V)=OFLAG2(V).AND. .NOT.FITEBT      ! yes, not fighting.
      CALL RSPSUB(572,DV)                       ! he dies.
      CALL NEWSTA(V,0,0,0,0)                    ! make him disappear.
      IF(RA.EQ.0) RETURN                        ! if nx to do, exit.
      PRSA=DEADXW                               ! let him know.
      F=OAPPLI(RA,0)
      RETURN
C
4100  IF((RES.NE.ROUT).OR.(RA.EQ.0)) RETURN
      PRSA=OUTXW                                ! let him be out.
      F=OAPPLI(RA,0)
      RETURN
C
4500  ASTREN(H)=-10000                          ! assume dead.
      IF(DEF.NE.0) ASTREN(H)=DEF-OD
      IF(DEF.GE.OD) GO TO 4600
      CTICK(CEVCUR)=30
      CFLAG(CEVCUR)=.TRUE.
4600  IF(FIGHTS(H,.TRUE.).GT.0) RETURN
      ASTREN(H)=1-FIGHTS(H,.FALSE.)             ! he's dead.
      CALL JIGSUP(596)
      BLOW=-1
      RETURN
C
      END

C SWORDD- Intermove sword demon
C
C Declarations
C
      SUBROUTINE SWORDD
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
      LOGICAL INFEST,FINDXT
C
      IF(OADV(SWORD).NE.PLAYER) GO TO 500       ! holding sword?
      NG=2                                      ! assume vill close.
      IF(INFEST(HERE)) GO TO 300                ! vill here?
      NG=1
      DO 200 I=XMIN,XMAX,XMIN                   ! no, search rooms.
        IF(.NOT.FINDXT(I,HERE)) GO TO 200       ! room that way?
        GO TO (50,200,50,50),XTYPE              ! see if room at all.
50      IF(INFEST(XROOM1)) GO TO 300            ! check room.
200   CONTINUE
      NG=0                                      ! no glow.
C
300   IF(NG.EQ.SWDSTA) RETURN                   ! any state change?
      CALL RSPEAK(NG+495)                       ! yes, tell new state.
      SWDSTA=NG
      RETURN
C
500   SWDACT=.FALSE.                            ! dropped sword,
      RETURN                                    ! disable demon.
      END

C INFEST-       Subroutine to test for infested room
C
C Declarations
C
      LOGICAL FUNCTION INFEST(R)
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
C
      IF(.NOT.ENDGMF) INFEST=(OROOM(CYCLO).EQ.R).OR.
     1(OROOM(TROLL).EQ.R).OR.
     2((OROOM(THIEF).EQ.R).AND.THFACT)
      IF(ENDGMF) INFEST=(R.EQ.MRG).OR.(R.EQ.MRGE).OR.
     1(R.EQ.MRGW).OR.
     2((R.EQ.INMIR).AND.(MLOC.EQ.MRG))
      RETURN
      END

C AAPPLI- Applicables for adventurers
C
C Declarations
C
      LOGICAL FUNCTION AAPPLI(RI)
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
      LOGICAL F,MOVETO,QHERE,FINDXT
C
      IF(RI.EQ.0) GO TO 10                      ! if zero, no app.
      AAPPLI=.TRUE.                             ! assume wins.
      GO TO (1000,2000,3000),RI                 ! branch on adv.
      CALL BUG(11,RI)
C
C Common false return.
C
10    AAPPLI=.FALSE.
      RETURN

C AAPPLI, PAGE 2
C
C A1--  Dead player.
C
1000  IF((PRSA.NE.ATTACW).AND.(PRSA.NE.MUNGW).AND.
     1 (PRSA.NE.KILLW).AND.(PRSA.NE.SWINGW).AND.
     2 (PRSA.NE.KICKW).AND.(PRSA.NE.BLASTW)) GO TO 1050
      CALL RSPEAK(949)                          ! dead can't attack.
      RETURN
C
1050  IF((PRSA.NE.OPENW).AND.(PRSA.NE.CLOSEW).AND.
     1 (PRSA.NE.EATW).AND.(PRSA.NE.DRINKW).AND.
     2 (PRSA.NE.INFLAW).AND.(PRSA.NE.DEFLAW).AND.
     3 (PRSA.NE.TURNW).AND.(PRSA.NE.TIEW).AND.
     4 (PRSA.NE.RUBW).AND.(PRSA.NE.COUNTW).AND.
     5 (PRSA.NE.BURNW).AND.(PRSA.NE.UNTIEW)) GO TO 1100
      CALL RSPEAK(950)                          ! dead can't do simple acts.
      RETURN
C
1100  IF(PRSA.NE.TRNONW) GO TO 1150
      CALL RSPEAK(951)                          ! dead don't need lights.
      RETURN
C
1150  IF(PRSA.NE.SCOREW) GO TO 1200
      CALL RSPEAK(952)                          ! dead can't score.
      RETURN
C
1200  IF(PRSA.NE.TELLW) GO TO 1250
      CALL RSPEAK(953)                          ! dead can't give orders.
      RETURN
C
1250  IF(PRSA.NE.TAKEW) GO TO 1300
      CALL RSPEAK(954)                          ! dead can't take.
      RETURN
C
1300  IF((PRSA.NE.DROPW).AND.(PRSA.NE.THROWW).AND.
     1 (PRSA.NE.INVENW)) GO TO 1350
      CALL RSPEAK(955)                          ! dead have no possesions
      RETURN
C
1350  IF(PRSA.NE.DIAGNW) GO TO 1400
      CALL RSPEAK(956)                          ! dead as a doornail
      RETURN
C
1400  IF(PRSA.NE.LOOKW) GO TO 1500
      I=957                                     ! assume nothing here
      DO 1450 J=1,OLNT                          ! loop through objects
        IF(QHERE(J,HERE)) I=958                 ! found something
1450  CONTINUE
      CALL RSPEAK(I)                            ! describe objects
      IF((RFLAG(HERE).AND.RLIGHT).EQ.0) CALL RSPEAK(959)
      GO TO 10                                  ! don't handle
C
1500  IF(PRSA.NE.PRAYW) GO TO 1600
      IF(HERE.EQ.TEMP2) GO TO 1550              ! praying in temple?
      CALL RSPEAK(960)                          ! prayers are not answered
      RETURN
C
1550  OFLAG1(LAMP)=OFLAG1(LAMP).OR.VISIBT       ! back to life, restore lamp
      AACTIO(PLAYER)=0                          ! disable dead player
      DEADF=.FALSE.                             ! clear dead flag
      F=MOVETO(FORE1,WINNER)                    ! move to forest
      CALL RSPEAK(9)                            ! describe
      RETURN
C
1600  IF(PRSA.NE.WALKW) GO TO 1700
      IF(.NOT.FINDXT(PRSO,HERE)) GO TO 10       ! if no exits, don't handle
      IF(XROOM1.NE.BSHAF) GO TO 10              ! if not bshaft, don't handle
      CALL RSPEAK(962)                          ! can't go and score points
      RETURN
C
1700  IF(PRSA.EQ.QUITW) GO TO 10                ! if quit, don't handle
      CALL RSPEAK(963)                          ! can't do it
      RETURN

C
C A2--  Robot.  Process most commands given to robot.
C
2000  IF((PRSA.NE.RAISEW).OR.(PRSO.NE.RCAGE)) GO TO 2200
      CFLAG(CEVSPH)=.FALSE.                     ! robot raised cage.
      WINNER=PLAYER                             ! reset for player.
      F=MOVETO(CAGER,WINNER)                    ! move to new room.
      CALL NEWSTA(CAGE,567,CAGER,0,0)           ! install cage in room.
      CALL NEWSTA(ROBOT,0,CAGER,0,0)            ! install robot in room.
      AROOM(AROBOT)=CAGER                       ! also move robot/adv.
      CAGESF=.TRUE.                             ! cage solved.
      OFLAG1(ROBOT)=OFLAG1(ROBOT).AND..NOT.NDSCBT
      OFLAG1(SPHER)=OFLAG1(SPHER).OR.TAKEBT     ! reset flags.
      PRSCON=0                                  ! stop cmd stream.
      RETURN
C
2200  IF((PRSA.NE.DRINKW).AND.(PRSA.NE.EATW)) GO TO 2300
      CALL RSPEAK(568)                          ! eat or drink, joke.
      RETURN
C
2300  IF(PRSA.NE.READW) GO TO 2400              ! read,
      CALL RSPEAK(569)                          ! joke.
      RETURN
C
2400  IF((PRSA.EQ.WALKW).OR.(PRSA.EQ.TAKEW).OR.(PRSA.EQ.DROPW)
     1.OR.(PRSA.EQ.PUTW).OR.(PRSA.EQ.PUSHW).OR.(PRSA.EQ.LEAPW)
     2.OR.(PRSA.EQ.TURNW)) GO TO 2500           ! test for robot verb.
      CALL RSPEAK(570)                          ! joke.
      RETURN
C
2500  CALL RSPEAK(930)                          ! buzz, whirr, click!
      GO TO 10                                  ! don't handle here.

C AAPPLI, PAGE 3
C
C A3--  Master.  Process most commands given to master.
C
3000  IF((OFLAG2(QDOOR).AND.OPENBT).NE.0) GO TO 3100
      CALL RSPEAK(783)                          ! no master yet.
      RETURN
C
3100  IF(PRSA.NE.WALKW) GO TO 3200              ! walk?
      I=784                                     ! assume wont.
      IF(((HERE.EQ.SCORR).AND.
     1((PRSO.EQ.XNORTH).OR.(PRSO.EQ.XENTER))).OR.
     2 ((HERE.EQ.NCORR).AND.
     3((PRSO.EQ.XSOUTH).OR.(PRSO.EQ.XENTER))))
     4I=785                                     ! if prison, cant.
      CALL RSPEAK(I)
      RETURN
C
3200  IF((PRSA.EQ.STAYW).OR.(PRSA.EQ.FOLLOW).OR.(PRSA.EQ.KILLW).OR.
     1 (PRSA.EQ.MUNGW).OR.(PRSA.EQ.ATTACW)) GO TO 10
      IF((PRSA.EQ.TAKEW).OR.(PRSA.EQ.DROPW).OR.(PRSA.EQ.PUTW).OR.
     1 (PRSA.EQ.THROWW).OR.(PRSA.EQ.PUSHW).OR.(PRSA.EQ.TURNW).OR.
     2 (PRSA.EQ.SPINW).OR.(PRSA.EQ.TRNTOW).OR.(PRSA.EQ.OPENW).OR.
     3 (PRSA.EQ.CLOSEW)) GO TO 3300             ! master can, politely.
      CALL RSPEAK(786)                          ! master can't.
      RETURN
C
3300  CALL RSPEAK(1057)                         ! polite reply.
      GO TO 10
C
      END

C THIEFD-       Intermove thief demon
C
C Declarations
C
C This routine details on bit 6 of PRSFLG
C
      SUBROUTINE THIEFD
      IMPLICIT INTEGER (A-Z)
      INCLUDE 'dparam.for'
      LOGICAL DFLAG,ONCE,PROB,QHERE,QSTILL,LIT,WINNIN,WASLIT
C
C Functions AND DATA
C
      QSTILL(R)=(QHERE(STILL,R).OR.(OADV(STILL).EQ.-THIEF))

C THIEFD, PAGE 2
C
      DFLAG=(PRSFLG.AND.64).NE.0                ! set up detail flag.
      ONCE=.FALSE.                              ! init flag.
1025  WASLIT=LIT(HERE)                          ! record if lit.
      RHERE=OROOM(THIEF)                        ! visible pos.
      IF(RHERE.NE.0) THFPOS=RHERE
C
      IF((THFPOS.EQ.HERE).AND..NOT.DEADF) GO TO 1100 ! thief in live win rm?
      IF(THFPOS.NE.TREAS) GO TO 1400            ! thief not in treas?
C
C Thief is in treasure room, and winner is not.
C
      IF(DFLAG) PRINT 10
10    FORMAT(' THIEFD-- IN TREASURE ROOM')
      IF(RHERE.EQ.0) GO TO 1050                 ! visible?
      CALL NEWSTA(THIEF,0,0,0,0)                ! yes, vanish.
      RHERE=0
      IF(QSTILL(TREAS)) CALL NEWSTA(STILL,0,0,THIEF,0)
      DO 1040 I=1,OLNT                          ! loop through objects.
        IF(QHERE(I,THFPOS))
     1OFLAG1(I)=OFLAG1(I).OR.VISIBT             ! make objects visible
1040  CONTINUE
1050  I=ROBADV(-THIEF,THFPOS,0,0)               ! drop valuables.
      IF(QHERE(EGG,THFPOS)) OFLAG2(EGG)=OFLAG2(EGG).OR.OPENBT
      GO TO 1700

C THIEFD, PAGE 3
C
C Thief and (live) winner in same room.
C
1100  IF(THFPOS.EQ.TREAS) GO TO 1700            ! if treas room, nothing.
      IF((RFLAG(THFPOS).AND.RLIGHT).NE.0) GO TO 1400 ! not if light.
      IF(DFLAG) PRINT 20
20    FORMAT(' THIEFD-- IN ADV ROOM')
      IF(THFFLG) GO TO 1300                     ! thief announced?
      IF((RHERE.NE.0).OR.PROB(70,70))   GO TO 1150 ! if invis and 30%.
      IF(OCAN(STILL).NE.THIEF) GO TO 1700       ! abort if no stilletto.
      CALL NEWSTA(THIEF,583,THFPOS,0,0)         ! insert thief into room.
      THFFLG=.TRUE.                             ! thief is announced.
      RETURN
C
1150  IF((RHERE.EQ.0).OR.((OFLAG2(THIEF).AND.FITEBT).EQ.0))
     1GO TO 1200                                ! if visible and fight.
      IF(WINNIN(THIEF,PLAYER)) GO TO 1175       ! winning?
      CALL NEWSTA(THIEF,584,0,0,0)              ! no, vanish thief.
      OFLAG2(THIEF)=OFLAG2(THIEF).AND. .NOT.FITEBT
      IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0)
      RETURN
C
1175  IF(PROB(90,90)) GO TO 1700                ! 90% chance to stay.
C
1200  IF((RHERE.EQ.0).OR.PROB(70,70)) GO TO 1250 ! if visible and 30%
      CALL NEWSTA(THIEF,585,0,0,0)              ! vanish thief.
      IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0)
      RETURN
C
1300  IF(RHERE.EQ.0) GO TO 1700                 ! announced.  visible?
1250  IF(PROB(70,70)) RETURN                    ! 70% chance to do nothing.
      THFFLG=.TRUE.
      NR=ROBRM(THFPOS,100,0,0,-THIEF)+ROBADV(PLAYER,0,0,-THIEF)
      I=586                                     ! robbed em.
      IF(RHERE.NE.0) I=588                      ! was he visible?
      CALL NEWSTA(THIEF,I+MIN0(1,NR),0,0,0)     ! vanish thief, give result.
      IF(QSTILL(THFPOS))
     1CALL NEWSTA(STILL,0,0,THIEF,0)            ! reclaim stilletto.
      IF(WASLIT.AND..NOT.LIT(HERE).AND.(HERE.EQ.AROOM(PLAYER)))
     1CALL RSPEAK(915)                          ! leave player in dark?
      RHERE=0
      GO TO 1700                                ! onward.

C THIEFD, PAGE 4
C
C Not in adventurers room, or adventurer dead, or room lit.
C
1400  CALL NEWSTA(THIEF,0,0,0,0)                ! vanish.
      RHERE=0
      IF(DFLAG) PRINT 30,THFPOS
30    FORMAT(' THIEFD-- IN ROOM ',I4)
      IF(QSTILL(THFPOS)) CALL NEWSTA(STILL,0,0,THIEF,0)
      IF((RFLAG(THFPOS).AND.RSEEN).EQ.0) GO TO 1700 ! cant rob unseen.
      RMK=1045                                  ! first object to vanish.
      I=ROBRM(THFPOS,75,0,0,-5555)              ! rob room 75% to hyperspace.
      DO 1410 I=1,OLNT                          ! loop through objects.
        IF(OADV(I).NE.-5555) GO TO 1410         ! in hyperspace?
        CALL NEWSTA(I,0,0,0,-THIEF)             ! move to thief.
        IF((THFPOS.EQ.HERE).AND..NOT.DEADF)     ! thief's remarks.
     1CALL RSPSUB(RMK,ODESC2(I))
        RMK=1083                                ! for next object.
1410  CONTINUE
C
      IF((THFPOS.LT.MAZE1).OR.(THFPOS.GT.MAZ15).OR.
     1(HERE.LT.MAZE1).OR.(HERE.GT.MAZ15)) GO TO 1500
      DO 1450 I=1,OLNT                          ! both in maze.
        IF(.NOT.QHERE(I,THFPOS).OR.PROB(60,60).OR.(I.EQ.WATER).OR.
     1((OFLAG1(I).AND.(VISIBT+TAKEBT)).NE.(VISIBT+TAKEBT)))
     2GO TO 1450
        IF(.NOT.DEADF) CALL RSPSUB(590,ODESC2(I)) ! thief's remarks.
        IF(PROB(40,20)) GO TO 1700
        CALL NEWSTA(I,0,0,0,-THIEF)             ! steal it.
        OFLAG2(I)=OFLAG2(I).OR.TCHBT
        GO TO 1700
1450  CONTINUE
      GO TO 1700
C
1500  DO 1550 I=1,OLNT                          ! not in maze.
        IF(.NOT.QHERE(I,THFPOS).OR.(OTVAL(I).NE.0).OR.
     1PROB(80,60).OR.(I.EQ.WATER).OR.
     2((OFLAG1(I).AND.(VISIBT+TAKEBT)).NE.(VISIBT+TAKEBT)))
     3GO TO 1550
        CALL NEWSTA(I,0,0,0,-THIEF)
        OFLAG2(I)=OFLAG2(I).OR.TCHBT
        IF((THFPOS.EQ.HERE).AND..NOT.DEADF)
     1CALL RSPSUB(RMK,ODESC2(I))                ! vanishes before you.
        GO TO 1700
1550  CONTINUE

C THIEFD, PAGE 5
C
C Now move to new room.
C
1700  IF(OADV(ROPE).NE.-THIEF) GO TO 1725       ! did he steal rope?
      DOMEF=.FALSE.
      TTIE=0
1725  IF(ONCE) GO TO 1800
      ONCE=.NOT.ONCE
1750  THFPOS=THFPOS-1                           ! next room.
      IF(THFPOS.LE.0) THFPOS=RLNT
      IF((RFLAG(THFPOS).AND.(RLAND+RSACRD+REND)).NE.RLAND)
     1GO TO 1750                                ! must be land, profane.
      THFFLG=.FALSE.                            ! not announced.
      GO TO 1025                                ! once more.
C
C All done.
C
1800  IF(THFPOS.EQ.TREAS) RETURN                ! in treasure room?
      J=1055                                    ! no, drop junky stuff.
      IF(THFPOS.NE.HERE) J=0
      DO 1850 I=1,OLNT
        IF((OADV(I).NE.-THIEF).OR.PROB(70,30).OR.
     1(OTVAL(I).GT.0)) GO TO 1850
        CALL NEWSTA(I,J,THFPOS,0,0)
        J=0
1850  CONTINUE
      RETURN
C
      END